***********************************************************************
*
*       Programa que preenche o campo pm_ntab = 1
*       do dbf pedidoma
*       Autor: Eng: Luis Lin
*       Date : 09.12.96
*
*
***********************************************************************
*request dbfcdx
*RddSetDefault('dbfcdx')
local ntab := 1
close databases
use pedidoma new alias PEDM
sele PEDM
go top

do while ! eof()
   PEDM->pm_ntab := 1
   skip
enddo
close databases
return .t.



